5 POKE646,1:PRINT"A":GOTO190
10 FORT=1TO200:NEXT:RETURN
190 PRINT"[147]":UY=1:X=1:POKE53280,13
200 POKE2003,87:P=2003:K=87
210 J=PEEK(56320):GETW$:IFJ=127THENIFW$=""THEN210
215 IFJ=111THENIFUY=1THENIFX=1THENUY=0:POKE53280,6:GOSUB10:GOTO210
216 IFJ=111THENIFUY=0THENIFX=1THENX=0:POKE53280,10:GOSUB10:GOTO210
217 IFJ=111THENIFUY=0THENIFX=0THENX=1:UY=1:POKE53280,13:GOSUB10:GOTO210
220 PP=P
230 IFJ=126THENP=P-40:IFP<1024THENP=P+40
250 IFJ=125THENP=P+40:IFP>2023THENP=P-40
270 IFJ=123THENP=P-1:IFP<1024THENP=P+1
290 IFJ=119THENP=P+1:IFP>2023THENP=P-1
310 IFJ=122THENP=P-41:IFP<1024THENP=P+41
330 IFJ=121THENP=P+39:IFP>2023THENP=P-39
350 IFJ=118THENP=P-39:IFP<1024THENP=P+39
370 IFJ=117THENP=P+41:IFP>2024THENP=P-41
420 IFW$="C"THEN790
440 IFW$="X"THENPRINT"[147]":END
450 IFX=0THENPOKEPP,32
460 IFUY=1THENPOKEPP,PT
470 PT=PEEK(P)
480 POKEP,K
490 GOTO210
790 FA=PEEK(53280):POKE53280,7
795 GETDR$:IFDR$=""THEN795
800 EW=PEEK(1024):PRINT"";DR$:K=PEEK(1024):POKE1024,EW:POKE53280,FA:GOTO210